home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / M.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  851 b   |  21 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  COLOR 7,0
  4. 40  WIDTH 80
  5. 50  DEF SEG = 0: POKE 1050,PEEK(1052)
  6. 60  LOCATE 1,24:PRINT "M U L T I P L I C A T I O N  T U T O R I A L"
  7. 70  LOCATE 5,2:PRINT " This section will guide you through the MULTIPLICATION section of "
  8. 80  LOCATE 6,2:PRINT "M A T H  P A K."
  9. 90  LOCATE 7,2:PRINT " This section of M A T H  P A K, will allow you to multiply as many values as"
  10. 100  LOCATE 8,2:PRINT "you want."
  11. 110  LOCATE 9,2:PRINT " EXAMPLE:"
  12. 120  LOCATE 11,2:PRINT " To multiply 3 * 4 * 6 * 8 =?"
  13. 130  LOCATE 12,2:PRINT " Enter 4 for 'number of values to be multiplied' and press <RETURN>."
  14. 140  LOCATE 13,2:PRINT " Then enter the value 3 , press <RETURN>, enter 4, press <RETURN>, etc."
  15. 150  LOCATE 14,2:PRINT " The product of the values will appear below that."
  16. 160  LOCATE 15,2:PRINT " To exit to main menu at any time, enter a value of 0 ."
  17. 170  LOCATE 20,2:PRINT "Press the S P A C E  B A R to return to disk tutorial..."
  18. 180  S$ =INKEY$:IF S$ =" " THEN CLS:CLEAR:CHAIN"a"
  19. 190  GOTO 180
  20. 200  END
  21.